(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     31477,       1030]
NotebookOptionsPosition[     26058,        840]
NotebookOutlinePosition[     26878,        870]
CellTagsIndexPosition[     26758,        864]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["XX", "HistoryData",
  CellTags->"New"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised"]
}], "History",
 CellID->1247902091],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507],

Cell["TransferMatrixFormalism Package", "Categorization",
 CellChangeTimes->{3.6000067257513847`*^9},
 CellLabel->"Paclet Name",
 CellID->770038257],

Cell["TransferMatrixFormalism`", "Categorization",
 CellLabel->"Context",
 CellID->140464271],

Cell["TransferMatrixFormalism/ref/AbelesS", "Categorization",
 CellChangeTimes->{3.6000067266213865`*^9},
 CellLabel->"URI",
 CellID->39363149]
}, Open  ]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294],

Cell["S", "Keywords",
 CellChangeTimes->{{3.598226151181749*^9, 3.598226154832155*^9}, {
  3.5987210239319167`*^9, 3.5987210267087216`*^9}},
 CellID->1164421360],

Cell["SI", "Keywords",
 CellChangeTimes->{{3.598226151181749*^9, 3.598226154832155*^9}, {
  3.5987210239319167`*^9, 3.598721028159524*^9}},
 CellID->223682285],

Cell["SII", "Keywords",
 CellChangeTimes->{{3.598226151181749*^9, 3.598226154832155*^9}, {
  3.5987210239319167`*^9, 3.598721028814725*^9}},
 CellID->270504033],

Cell["system transfer matrix", "Keywords",
 CellChangeTimes->{{3.598226151181749*^9, 3.598226154832155*^9}, 
   3.5987210239319167`*^9},
 CellID->255349933],

Cell["transfer matrix", "Keywords",
 CellChangeTimes->{{3.598226151181749*^9, 3.59822615760896*^9}},
 CellID->88493644],

Cell["Eq. 15", "Keywords",
 CellChangeTimes->{{3.598226151181749*^9, 3.59822615760896*^9}, {
  3.598226244144312*^9, 3.5982262474671183`*^9}},
 CellID->643043129]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365]
}, Closed]],

Cell[CellGroupData[{

Cell["AbelesS", "ObjectName",
 CellID->1224892054],

Cell[TextData[{
 Cell[" ", "ModInfo"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["AbelesS",
    BaseStyle->"Link",
    ButtonData->"paclet:TransferMatrixFormalism/ref/AbelesS"], "[", 
   RowBox[{"\"\<\!\(\*
StyleBox[\"pol\", \"TI\"]\)\>\"", ",", 
    StyleBox["\[Omega]", "TR"], ",", 
    SubscriptBox[
     StyleBox["\[Theta]", "TR"], 
     StyleBox["0", "TR"]], ",", 
    SubscriptBox[
     StyleBox["n", "TI"], 
     StyleBox["0", "TR"]], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        SubscriptBox[
         StyleBox["n", "TI"], 
         StyleBox["1", "TR"]], ",", 
        SubscriptBox[
         StyleBox["d", "TI"], 
         StyleBox["1", "TR"]]}], "}"}], "\[CenterEllipsis]", 
      RowBox[{"{", 
       RowBox[{
        SubscriptBox[
         StyleBox["n", "TI"], 
         StyleBox["k", "TI"]], ",", 
        SubscriptBox[
         StyleBox["d", "TI"], 
         StyleBox["k", "TI"]]}], "}"}]}], "}"}], ",", 
    SubscriptBox[
     StyleBox["n", "TI"], 
     RowBox[{"k", "+", "1"}]]}], "]"}]], "InlineFormula"],
 "\[LineSeparator]calculates total system transfer matrix for ",
 StyleBox["\"pol\"", "TI"],
 "-polarized light at frequency ",
 Cell[BoxData[
  StyleBox["\[Omega]", "TR"]], "InlineFormula",
  ShowStringCharacters->False],
 " with refraction angle in medium 0 ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["\[Theta]", "TR"], 
   StyleBox["0", "TI"]]], "InlineFormula"],
 ", refractive indices ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["n", "TI"], 
   StyleBox["i", "TI"]]], "InlineFormula"],
 ", and thin film layer thicknesses ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["d", "TI"], 
   StyleBox["i", "TI"]]], "InlineFormula"],
 " in order as they appear in the thin film stack. ",
 ButtonBox["Eq. 15",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://dx.doi.org/10.1364/JOSAB.30.001503"], None}],
 "  ",
 ButtonBox["Eq. 15.",
  BaseStyle->"Link",
  ButtonData->
   "paclet:TransferMatrixFormalism/ReferencePages/Symbols/AbelesS#148884605"],
 "\n",
 Cell["      ", "ModInfo"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["AbelesS",
    BaseStyle->"Link",
    ButtonData->"paclet:TransferMatrixFormalism/ref/AbelesS"], "[", 
   RowBox[{"\"\<\!\(\*
StyleBox[\"pol\", \"TI\"]\)\>\"", ",", 
    StyleBox["\[Omega]", "TR"], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        SubscriptBox[
         StyleBox["\[Theta]", "TR"], 
         StyleBox["0", "TR"]], ",", 
        SubscriptBox[
         StyleBox["n", "TI"], 
         StyleBox["0", "TR"]]}], "}"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          SubscriptBox[
           StyleBox["\[Theta]", "TR"], 
           StyleBox["1", "TR"]], ",", 
          SubscriptBox[
           StyleBox["n", "TI"], 
           StyleBox["1", "TR"]], ",", 
          SubscriptBox[
           StyleBox["d", "TI"], 
           StyleBox["1", "TR"]]}], "}"}], "..."}], 
       RowBox[{"{", 
        RowBox[{
         SubscriptBox[
          StyleBox["\[Theta]", "TR"], 
          StyleBox["k", "TI"]], ",", 
         SubscriptBox[
          StyleBox["n", "TI"], 
          StyleBox["k", "TI"]], ",", 
         SubscriptBox[
          StyleBox["d", "TI"], 
          StyleBox["k", "TI"]]}], "}"}]}], ",", 
      RowBox[{"{", 
       RowBox[{
        SubscriptBox[
         StyleBox["\[Theta]", "TR"], 
         RowBox[{"k", "+", "1"}]], ",", 
        SubscriptBox[
         StyleBox["n", "TI"], 
         RowBox[{"k", "+", "1"}]]}], "}"}]}], "}"}]}], "]"}]], 
  "InlineFormula"],
 "\[LineSeparator]Provide precomputed refraction angles for all media."
}], "Usage",
 CellChangeTimes->{{3.5980222034737806`*^9, 3.598022507980116*^9}, {
  3.5980570282645817`*^9, 3.5980570283425817`*^9}, {3.5985460106799393`*^9, 
  3.598546016199947*^9}, {3.5985460839750423`*^9, 3.598546084645043*^9}, {
  3.5985461434801254`*^9, 3.598546179582176*^9}, {3.598721334336862*^9, 
  3.598721336006065*^9}, {3.5987218026028843`*^9, 3.5987218046776876`*^9}, {
  3.5987218567359796`*^9, 3.59872186250799*^9}, {3.598721937274726*^9, 
  3.598721955549771*^9}, {3.5987220216489897`*^9, 3.5987220216957893`*^9}, {
  3.598723178548747*^9, 3.5987231826515546`*^9}, {3.5987235075501256`*^9, 
  3.5987235085953274`*^9}, {3.598723551464203*^9, 3.598723582087056*^9}}],

Cell[TextData[{
 Cell[BoxData[
  RowBox[{"\"\<\>", 
   StyleBox["pol", "TI"], "\"\<\>"}]], "InlineFormula",
  ShowStringCharacters->False],
 "-polarization may be ",
 Cell[BoxData[
  RowBox[{"\"\<\>", 
   StyleBox["s", "TI"], "\"\<\>"}]], "InlineFormula",
  ShowStringCharacters->False],
 " or ",
 Cell[BoxData[
  RowBox[{"\"\<\>", 
   StyleBox["p", "TI"], "\"\<\>"}]], "InlineFormula",
  ShowStringCharacters->False],
 " for propagating light fields with electric field oscillating perpendicular \
to the plane of incidence (transverse electric, TE) or magnetic field \
oscillating perpendicular to the plane of incidence (transverse magnetic, \
TM), respectively."
}], "Notes",
 CellChangeTimes->{{3.598195174047447*^9, 3.5981955680109396`*^9}},
 CellID->3787681],

Cell[TextData[{
 ButtonBox["AbelesS",
  BaseStyle->"Link",
  ButtonData->"paclet:TransferMatrixFormalism/ref/AbelesS"],
 " is the total system transfer matrix, made up of the stack of \
characteristic matrices of refraction (",
 ButtonBox["RefractionMv",
  BaseStyle->"Link",
  ButtonData->"paclet:TransferMatrixFormalism/ref/RefractionMv"],
 ") and layer phase matrices (",
 ButtonBox["PhaseMv",
  BaseStyle->"Link",
  ButtonData->"paclet:TransferMatrixFormalism/ref/PhaseMv"],
 ") for each medium in the system."
}], "Notes",
 CellChangeTimes->{{3.598022541662575*^9, 3.598022626870925*^9}, {
   3.59802266415499*^9, 3.5980226661517935`*^9}, {3.598195605778606*^9, 
   3.598195611457016*^9}, {3.598721643919406*^9, 3.598721664683042*^9}, 
   3.598721714088329*^9},
 CellID->301028855],

Cell[TextData[{
 "\n",
 Cell[BoxData[
  FormBox[
   RowBox[{"S", "=", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         SubscriptBox["W", 
          RowBox[{"0", ",", "1"}]], ".", 
         SubscriptBox["\[CapitalPhi]", "1"], ".", 
         SubscriptBox["W", 
          RowBox[{"1", ",", "2"}]]}], "..."}], 
       RowBox[{
        SubscriptBox["W", 
         RowBox[{
          RowBox[{"v", "-", "1"}], ",", "v"}]], ".", 
        SubscriptBox["\[CapitalPhi]", "v"], ".", 
        SubscriptBox["W", 
         RowBox[{"v", ",", 
          RowBox[{"v", "+", "1"}]}]]}]}], "..."}], 
     RowBox[{
      SubscriptBox["W", 
       RowBox[{
        RowBox[{"k", "-", "1"}], ",", "k"}]], ".", 
      SubscriptBox["\[CapitalPhi]", "k"], ".", 
      SubscriptBox["W", 
       RowBox[{"k", ",", 
        RowBox[{"k", "+", "1"}]}]]}]}]}], TraditionalForm]], "InlineMath"]
}], "Notes",
 CellChangeTimes->{{3.598022541662575*^9, 3.598022626870925*^9}, {
  3.59802266415499*^9, 3.5980226661517935`*^9}, {3.598195605778606*^9, 
  3.598195611457016*^9}, {3.598721643919406*^9, 3.598721664683042*^9}, {
  3.598721714088329*^9, 3.59872172046874*^9}},
 TextAlignment->Center,
 CellID->585426781],

Cell["\<\

so that\
\>", "Notes",
 CellChangeTimes->{{3.598022541662575*^9, 3.598022626870925*^9}, {
  3.59802266415499*^9, 3.5980226661517935`*^9}, {3.598195605778606*^9, 
  3.598195611457016*^9}, {3.598721643919406*^9, 3.598721664683042*^9}, {
  3.598721714088329*^9, 3.598721723245545*^9}},
 CellID->266960528],

Cell[TextData[{
 "\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        SubsuperscriptBox["\[CapitalEpsilon]", "0", "-"]},
       {
        SubsuperscriptBox["\[CapitalEpsilon]", "0", "+"]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], "=", 
    RowBox[{"S", "(", "\[NoBreak]", GridBox[{
       {
        SubsuperscriptBox["\[CapitalEpsilon]", 
         RowBox[{"k", "+", "1"}], 
         RowBox[{"-", "'"}]]},
       {
        SubsuperscriptBox["\[CapitalEpsilon]", 
         RowBox[{"k", "+", "1"}], 
         RowBox[{"+", "'"}]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}], 
   TraditionalForm]], "InlineMath"]
}], "Notes",
 CellChangeTimes->{{3.598022541662575*^9, 3.598022626870925*^9}, {
  3.59802266415499*^9, 3.5980226661517935`*^9}, {3.598195605778606*^9, 
  3.598195611457016*^9}, {3.598721643919406*^9, 3.598721664683042*^9}, {
  3.598721714088329*^9, 3.598721723245545*^9}, {3.598721915408475*^9, 
  3.5987219173235846`*^9}},
 TextAlignment->Center,
 CellID->206663948]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057],

Cell[TextData[ButtonBox["Nonlinear Spectroscopy of Thin Film Systems",
 BaseStyle->"Link",
 ButtonData->
  "paclet:ThinFilmNLS/tutorial/Nonlinear Spectroscopy of Thin Film \
Systems"]], "Tutorials",
 CellChangeTimes->{{3.597778379480859*^9, 3.5977783986376925`*^9}, {
  3.6000111315791473`*^9, 3.6000111315981483`*^9}},
 CellID->40297743]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535],

Cell[TextData[ButtonBox["D. B. O\[CloseCurlyQuote]Brien and A. M. Massari, \
\"Modeling multilayer thin film interference effects in interface-specific \
coherent nonlinear optical spectroscopies,\" J. Opt. Soc. Am. B 30, 1503 \
(2013).",
 BaseStyle->"Hyperlink",
 ButtonData->{
   URL["http://dx.doi.org/10.1364/JOSAB.30.001503"], None}]], "RelatedLinks",
 CellChangeTimes->{{3.597765920073867*^9, 3.5977659201674676`*^9}, 
   3.5987218472667627`*^9, {3.5987218821525726`*^9, 3.598721895954362*^9}},
 CellID->148884605]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["AbelesSIv",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/AbelesSIv"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["AbelesSIIv",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/AbelesSIIv"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["RefractionMv",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/RefractionMv"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["PhaseMv",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/PhaseMv"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["TransmitTopS",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/TransmitTopS"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["TransmitBottomS",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/TransmitBottomS"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ReflectTopS",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/ReflectTopS"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ReflectBottomS",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/ReflectBottomS"]], 
  "InlineFormula"]
}], "SeeAlso",
 CellChangeTimes->{{3.598022991122965*^9, 3.5980230673914986`*^9}, {
  3.5981982603661194`*^9, 3.5981982718487396`*^9}},
 CellID->929782353]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248],

Cell["XXXX", "MoreAbout",
 CellID->1665078683]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151],

Cell["\<\
Calculate the total system transfer coefficients for reflection and \
transmission for 800 nm light incident at 60\[Degree] from the sample normal \
of a 2-layer system:\
\>", "ExampleText",
 CellChangeTimes->{{3.5980235924124217`*^9, 3.598023669508757*^9}, {
  3.5980237056238203`*^9, 3.598023736870675*^9}},
 CellID->142677524],

Cell[BoxData[{
 RowBox[{"<<", "TransferMatrixFormalism`"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "Data`Indices`"}]}], "Input",
 CellChangeTimes->{{3.598023626717882*^9, 3.598023631819091*^9}, {
   3.598721147281333*^9, 3.5987211525541425`*^9}, 3.600006734321397*^9},
 CellLabel->"In[47]:=",
 CellID->5100754],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "\"\<Indices`*\>\""}]], "Input",
 CellChangeTimes->{{3.59872230897202*^9, 3.598722332294061*^9}, {
  3.5987223804669456`*^9, 3.598722414397005*^9}, {3.598722523004396*^9, 
  3.5987225645316687`*^9}, {3.5987226438110085`*^9, 3.5987226891914883`*^9}},
 CellLabel->"In[22]:=",
 CellID->621554330],

Cell[BoxData[
 DynamicModuleBox[{Typeset`open$$ = True}, 
  PaneSelectorBox[{False->
   RowBox[{
    OpenerBox[Dynamic[Typeset`open$$],
     ImageSize->Small], 
    StyleBox["Indices`", "InfoHeading"]}], True->GridBox[{
     {
      RowBox[{
       OpenerBox[Dynamic[Typeset`open$$],
        ImageSize->Small], 
       StyleBox["Indices`", "InfoHeading"]}]},
     {GridBox[{
        {
         ButtonBox["nPTCDIc8",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3598701089-5973737", {"nPTCDIc8", "Indices`"}},
          ButtonNote->"Indices`"], 
         ButtonBox["nSi",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3598701089-5973737", {"nSi", "Indices`"}},
          ButtonNote->"Indices`"], 
         ButtonBox["nSiO2",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3598701089-5973737", {"nSiO2", "Indices`"}},
          ButtonNote->"Indices`"]}
       },
       DefaultBaseStyle->"InfoGrid",
       GridBoxItemSize->{"Columns" -> {{
            Scaled[0.31666666666666665`]}}}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}]}, 
   Dynamic[Typeset`open$$],
   ImageSize->Automatic]]], "Print", "InfoCell",
 CellChangeTimes->{3.598722689768689*^9},
 CellID->622299352]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "nPTCDIc8"}]], "Input",
 CellChangeTimes->{{3.5980239055089717`*^9, 3.598023909580579*^9}},
 CellLabel->"In[23]:=",
 CellID->448268772],

Cell[BoxData[
 StyleBox["\<\"\\\"nPTCDIc8[\[Omega]] gets complex refractive index of PTCDI-\
\\!\\(\\*SubscriptBox[\\(C\\), \\(8\\)]\\) with \[Omega] in \
\\!\\(\\*SuperscriptBox[\\(cm\\), \\(-1\\)]\\).  Valid in the ranges 1501 < \
\[Omega] < 3498 and 9091 < \[Omega] < 40000.  Determined from spectroscopic \
ellipsometry of vapor deposited thin films.\\\"\"\>", "MSG"]], "Print", \
"PrintUsage",
 CellChangeTimes->{3.5987227624960165`*^9},
 CellTags->"Info3598701162-5973737",
 CellID->78002410]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Lambda]", "=", "800."}], 
     RowBox[{"(*", "nm", "*)"}], ",", "\[Omega]", ",", 
     RowBox[{"\[Theta]0", "=", 
      RowBox[{"60.", "\[Degree]"}]}], ",", 
     RowBox[{"n0", "=", "1"}], ",", "n1", ",", "n2", ",", "n3", ",", 
     RowBox[{"d1", "=", "140"}], " ", 
     RowBox[{"(*", "nm", "*)"}], ",", 
     RowBox[{"d2", "=", "250"}]}], " ", 
    RowBox[{"(*", "nm", "*)"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Omega]", "=", 
     RowBox[{
      SuperscriptBox["10", "7"], "/", "\[Lambda]"}]}], " ", 
    RowBox[{"(*", 
     SuperscriptBox["cm", 
      RowBox[{"-", "1"}]], "*)"}], ";", "\[IndentingNewLine]", 
    RowBox[{"n1", "=", 
     RowBox[{"nPTCDIc8", "[", "\[Omega]", "]"}]}], ";", 
    RowBox[{"n2", "=", 
     RowBox[{"nSiO2", "[", "\[Omega]", "]"}]}], ";", 
    RowBox[{"n3", "=", 
     RowBox[{"nSi", "[", "\[Omega]", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"TableForm", "[", 
     RowBox[{
      RowBox[{"Partition", "[", 
       RowBox[{
        RowBox[{"Through", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "ReflectTopS", ",", "TransmitTopS", ",", "ReflectBottomS", ",", 
            "TransmitBottomS"}], "}"}], "[", 
          RowBox[{"AbelesS", "[", 
           RowBox[{"\"\<p\>\"", ",", 
            RowBox[{"1", "/", "\[Lambda]"}], ",", "\[Theta]0", ",", "n0", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"n1", ",", "d1"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"n2", ",", "d2"}], "}"}]}], "}"}], ",", "n3"}], "]"}], 
          "]"}], "]"}], ",", "2"}], "]"}], ",", 
      RowBox[{"TableHeadings", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"\"\<Reflect\>\"", ",", "\"\<Transmit\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Incident from Top side\>\"", ",", 
           "\"\<Incident from Bottom side\>\""}], "}"}]}], "}"}]}]}], 
     "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.598023684375583*^9, 3.598023699258009*^9}, {
  3.598023741332283*^9, 3.5980238987385597`*^9}, {3.598023930142415*^9, 
  3.5980239925737247`*^9}, {3.598024027956587*^9, 3.598024173525443*^9}, {
  3.5980242186719217`*^9, 3.5980242220415277`*^9}, {3.598024381319808*^9, 
  3.5980243984330378`*^9}, {3.5980244334716997`*^9, 3.598024466700758*^9}, {
  3.598024538960085*^9, 3.5980245473549*^9}, {3.5980246222234316`*^9, 
  3.5980246250314364`*^9}, {3.598722292560791*^9, 3.598722298754002*^9}, {
  3.598723250948475*^9, 3.598723368385481*^9}, {3.598723685406038*^9, 
  3.5987236862796392`*^9}, {3.5987237257331085`*^9, 3.598723767463182*^9}, {
  3.598723826743286*^9, 3.598723859238143*^9}},
 CellLabel->"In[32]:=",
 CellID->639323555],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      StyleBox["\[Null]",
       ShowStringCharacters->False], 
      TagBox["\<\"Incident from Top side\"\>",
       HoldForm], 
      TagBox["\<\"Incident from Bottom side\"\>",
       HoldForm]},
     {
      TagBox["\<\"Reflect\"\>",
       HoldForm], 
      RowBox[{"0.008665734065235076`", "\[VeryThinSpace]", "-", 
       RowBox[{"0.34676051726502666`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "0.22586396013302584`"}], "-", 
       RowBox[{"0.2609571892461926`", " ", "\[ImaginaryI]"}]}]},
     {
      TagBox["\<\"Transmit\"\>",
       HoldForm], 
      RowBox[{"0.3458334468224055`", "\[VeryThinSpace]", "+", 
       RowBox[{"0.0432819593940261`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "1.6130567222646768`"}], "-", 
       RowBox[{"1.8680850308032995`", " ", "\[ImaginaryI]"}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxDividers->{
     "Columns" -> {False, True, {False}, False}, "ColumnsIndexed" -> {}, 
      "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[2.0999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}],
  Function[BoxForm`e$, 
   TableForm[
   BoxForm`e$, 
    TableHeadings -> {{"Reflect", "Transmit"}, {
      "Incident from Top side", "Incident from Bottom side"}}]]]], "Output",
 CellChangeTimes->{
  3.5980241743054442`*^9, 3.598024222618729*^9, 3.5980243223663044`*^9, {
   3.5980243548923616`*^9, 3.598024381912609*^9}, {3.598024418276273*^9, 
   3.5980244673091593`*^9}, 3.5980245477137003`*^9, 3.5980246256554375`*^9, {
   3.598723321086198*^9, 3.5987233385426283`*^9}, 3.5987233687910814`*^9, 
   3.5987236869036407`*^9, {3.5987237369651284`*^9, 3.5987237700215864`*^9}},
 CellLabel->"Out[32]//TableForm=",
 CellID->157054696]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],

Cell[BoxData[
 InterpretationBox[Cell["Scope", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265],

Cell[BoxData[
 InterpretationBox[Cell["Generalizations & Extensions", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["Options", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749]
}, Closed]],

Cell[BoxData[
 InterpretationBox[Cell["Applications", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157],

Cell[BoxData[
 InterpretationBox[Cell["Properties & Relations", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759],

Cell[BoxData[
 InterpretationBox[Cell["Possible Issues", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373],

Cell[BoxData[
 InterpretationBox[Cell["Interactive Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318],

Cell[BoxData[
 InterpretationBox[Cell["Neat Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740]
}, Open  ]]
},
WindowSize->{700, 759},
WindowMargins->{{325, Automatic}, {48, Automatic}},
ShowSelection->True,
CellContext->"Global`",
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info3598701162-5973737"->{
  Cell[18905, 639, 498, 9, 76, "Print",
   CellTags->"Info3598701162-5973737",
   CellID->78002410]},
 "ExtendedExamples"->{
  Cell[24538, 782, 100, 2, 53, "ExtendedExamplesSection",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info3598701162-5973737", 26494, 853},
 {"ExtendedExamples", 26619, 857}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 324, 14, 22, "History",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[906, 38, 68, 1, 27, "CategorizationSection",
 CellID->1122911449],
Cell[977, 41, 79, 2, 31, "Categorization",
 CellID->686433507],
Cell[1059, 45, 148, 3, 31, "Categorization",
 CellID->770038257],
Cell[1210, 50, 93, 2, 31, "Categorization",
 CellID->140464271],
Cell[1306, 54, 143, 3, 31, "Categorization",
 CellID->39363149]
}, Open  ]],
Cell[CellGroupData[{
Cell[1486, 62, 55, 1, 27, "KeywordsSection",
 CellID->477174294],
Cell[1544, 65, 161, 3, 17, "Keywords",
 CellID->1164421360],
Cell[1708, 70, 159, 3, 17, "Keywords",
 CellID->223682285],
Cell[1870, 75, 160, 3, 17, "Keywords",
 CellID->270504033],
Cell[2033, 80, 156, 3, 17, "Keywords",
 CellID->255349933],
Cell[2192, 85, 119, 2, 17, "Keywords",
 CellID->88493644],
Cell[2314, 89, 162, 3, 17, "Keywords",
 CellID->643043129]
}, Open  ]],
Cell[CellGroupData[{
Cell[2513, 97, 65, 1, 27, "TemplatesSection",
 CellID->1872225408],
Cell[2581, 100, 94, 2, 70, "Template",
 CellID->1562036412],
Cell[2678, 104, 82, 2, 70, "Template",
 CellID->158391909],
Cell[2763, 108, 81, 2, 70, "Template",
 CellID->1360575930],
Cell[2847, 112, 82, 2, 70, "Template",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[2966, 119, 53, 1, 17, "DetailsSection",
 CellID->307771771],
Cell[3022, 122, 63, 2, 70, "Details",
 CellID->670882175],
Cell[3088, 126, 69, 2, 70, "Details",
 CellID->350963985],
Cell[3160, 130, 64, 2, 70, "Details",
 CellID->8391405],
Cell[3227, 134, 69, 2, 70, "Details",
 CellID->3610269],
Cell[3299, 138, 61, 2, 70, "Details",
 CellID->401364205],
Cell[3363, 142, 61, 2, 70, "Details",
 CellID->350204745],
Cell[3427, 146, 63, 2, 70, "Details",
 CellID->732958810],
Cell[3493, 150, 78, 2, 70, "Details",
 CellID->222905350],
Cell[3574, 154, 67, 2, 70, "Details",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[3678, 161, 50, 1, 62, "ObjectName",
 CellID->1224892054],
Cell[3731, 164, 4297, 131, 137, "Usage"],
Cell[8031, 297, 765, 21, 53, "Notes",
 CellID->3787681],
Cell[8799, 320, 786, 19, 37, "Notes",
 CellID->301028855],
Cell[9588, 341, 1211, 37, 40, "Notes",
 CellID->585426781],
Cell[10802, 380, 313, 8, 37, "Notes",
 CellID->266960528],
Cell[11118, 390, 1838, 49, 63, "Notes",
 CellID->206663948]
}, Open  ]],
Cell[CellGroupData[{
Cell[12993, 444, 57, 1, 43, "TutorialsSection",
 CellID->250839057],
Cell[13053, 447, 338, 7, 16, "Tutorials",
 CellID->40297743]
}, Open  ]],
Cell[CellGroupData[{
Cell[13428, 459, 83, 1, 30, "RelatedDemonstrationsSection",
 CellID->1268215905],
Cell[13514, 462, 58, 1, 16, "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[13609, 468, 65, 1, 30, "RelatedLinksSection",
 CellID->1584193535],
Cell[13677, 471, 520, 9, 29, "RelatedLinks",
 CellID->148884605]
}, Open  ]],
Cell[CellGroupData[{
Cell[14234, 485, 55, 1, 30, "SeeAlsoSection",
 CellID->1255426704],
Cell[14292, 488, 1600, 51, 35, "SeeAlso",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[15929, 544, 57, 1, 30, "MoreAboutSection",
 CellID->38303248],
Cell[15989, 547, 46, 1, 16, "MoreAbout",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[16072, 553, 356, 11, 68, "PrimaryExamplesSection",
 CellID->880084151],
Cell[16431, 566, 339, 7, 33, "ExampleText",
 CellID->142677524],
Cell[16773, 575, 310, 6, 48, "Input",
 CellID->5100754],
Cell[CellGroupData[{
Cell[17108, 585, 321, 6, 27, "Input",
 CellID->621554330],
Cell[17432, 593, 1270, 35, 55, "Print",
 CellID->622299352]
}, Open  ]],
Cell[CellGroupData[{
Cell[18739, 633, 163, 4, 27, "Input",
 CellID->448268772],
Cell[18905, 639, 498, 9, 76, "Print",
 CellTags->"Info3598701162-5973737",
 CellID->78002410]
}, Open  ]],
Cell[CellGroupData[{
Cell[19440, 653, 2876, 68, 215, "Input",
 CellID->639323555],
Cell[22319, 723, 2170, 53, 53, "Output",
 CellID->157054696]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[24538, 782, 100, 2, 53, "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[24641, 786, 125, 3, 30, "ExampleSection",
 CellID->1293636265],
Cell[24769, 791, 148, 3, 18, "ExampleSection",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[24942, 798, 127, 3, 18, "ExampleSection",
 CellID->2061341341],
Cell[25072, 803, 130, 3, 70, "ExampleSubsection",
 CellID->1757724783],
Cell[25205, 808, 130, 3, 70, "ExampleSubsection",
 CellID->1295379749]
}, Closed]],
Cell[25350, 814, 131, 3, 18, "ExampleSection",
 CellID->258228157],
Cell[25484, 819, 142, 3, 18, "ExampleSection",
 CellID->2123667759],
Cell[25629, 824, 135, 3, 18, "ExampleSection",
 CellID->1305812373],
Cell[25767, 829, 140, 3, 18, "ExampleSection",
 CellID->1653164318],
Cell[25910, 834, 132, 3, 18, "ExampleSection",
 CellID->589267740]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
